PC Shareware 1997 May/PC Shareware 1997-05.iso/gry/kungfu/kfk.exe/KFKLVL9.DXR/00036_MERCURY Parent.ls

Text File | 1997-02-16 | 1.5 KB | 41 lines

property ancestor, velocityH, velocityV, mySprite, direction, MyVulnerability, myID, damageValue, scoreValue, HMovementList, VMovementList, type, MyColor
global plutoHlist, plutoVlist, uranusHlist, uranusVlist, saturnHlist, saturnVlist, jupiterHlist, jupiterVlist, marsHlist, marsVlist, earthHlist, earthVlist, venusHlist, venusVlist, mercuryHlist, mercuryVlist

on birth me, ID
  set myID to ID
  set myID to ID
  set damageValue to 1
  set scoreValue to 100
  set myExplosionType to EMPTY
  set nowExploding to 0
  set foundOne to 0
  repeat with currentchannel = 15 to 48
    if the visible of sprite currentchannel = 0 then
      set mySprite to currentchannel
      set the visible of sprite currentchannel to 1
      set foundOne to 1
      exit repeat
    end if
  end repeat
  set previousflag to 0
  set HMovementList to mercuryHlist
  set VMovementList to mercuryVlist
  set type to #Path
  set the castNum of sprite mySprite to the number of cast "MERCURY"
  set MyColor to #None
  set the locH of sprite mySprite to getAt(HMovementList, 1)
  set the locV of sprite mySprite to getAt(VMovementList, 1)
  set direction to -1
  set MyVulnerability to #left
  set velocityH to 0
  set velocityV to 0
  if foundOne = 1 then
    set ancestor to birth(script "PLANET Nasty ancestor", velocityH, velocityV, mySprite, MyVulnerability, myID, damageValue, scoreValue, HMovementList, VMovementList, type, MyColor)
    return me
  else
    if foundOne = 0 then
      deleteProp(nastyList, myID)
    end if
  end if
end